Ví dụ Fortran

Chương trình "Chào Thế giới"

Chương trình "Hello" có thể chạy được sau khi dịch bằng bất cứ trình dịch nào kể từ Fortran 90 trở đi.

1 program chaothegioi2 print*,"Chao The Gioi!"3 end program chaothegioi

Chương trình tìm diện tích hình trụ

Chương trình này, tính diện tích của hình trụ, chạy khi được dịch bởi bất cứ trình dịch nào kể từ Fortran 90 trở đi. Các chữ đứng sau dấu ! trên cùng dòng sẽ không được dịch, và coi như chú thích của người viết chương trình, để giúp người đọc dễ hiểu hơn.

 1 program HinhTru 2 ! Tinh dien tich Hinh tru. 3 ! 4 ! Khai bao bien. 5 implicit none ! Yeu cau moi bien can duoc khai bao -- danh cho Fortran 90. 6 integer:: Loi 7 real:: BanKinh,ChieuCao,DienTich 8 real, parameter:: Pi = 3.14159 9 do10    ! Nhac nguoi dung nhap Ban kinh va Chieu cao.11    write (*,*) "Nhap Ban kinh va Chieu cao, nhan 't' de thoat."12    read (*,*,iostat=Loi) BanKinh,ChieuCao13    ! 14    ! Neu khong nhap duoc, thoat.15    if (Loi /= 0) stop "thoat"16    !17    ! Tinh dien tich. Ky hieu ** nghia la "luy thua".18    DienTich = 2*Pi*(BanKinh**2 + BanKinh*ChieuCao)19    !20    ! Viet (BanKinh, ChieuCao) va (DienTich) ra man hinh.21    write (*,"(1x,'BanKinh=',f6.2,5x,'ChieuCao=',f6.2,5x,'DienTich=',f6.2)") BanKinh,ChieuCao,DienTich22 end do23 end program HinhTru

Chú ý: câu lệnh

 write (*,"(1x,'BanKinh=',f6.2,5x,'ChieuCao=',f6.2,5x,'DienTich=',f6.2)") BanKinh,ChieuCao,DienTich

có sử dụng khai báo định dạng trong Fortran. Có thể giải thích sơ lược như sau:

  • 1x nghĩa là một ký tự trống. Số ký tự trống cần in ra đi trước chữx.
  • f6.2 tương ứng với số thực có 6 chữ số, trong đó 2 chữ số trong phần thập phân.

Kiểu định dạng chuỗi này của riêng Fortran, nó rất khác so với chuẩn định dạng printf của ngôn ngữ lập trình C vốn được sử dụng rộng rãi.